home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
lsp
/
defstruct.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
30KB
|
1,402 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "defstruct.h"
init_defstruct(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
base[0]= VV[0];
(void)simple_symlispcall_no_event(VV[123],base+0,1);
MF(VV[124],L2,start,size,data);
data->v.v_self[40]=VV[40]=string_to_object(VV[40]);
vs_top=sup;
MF(VV[125],L3,start,size,data);
MF(VV[126],L4,start,size,data);
MF(VV[127],L5,start,size,data);
MF(VV[128],L6,start,size,data);
MF(VV[129],L7,start,size,data);
MF(VV[130],L8,start,size,data);
MM(VV[102],L9,start,size,data);
MF(VV[121],L10,start,size,data);
base[0]= VV[119];
base[1]= VV[120];
base[2]= VV[121];
(void)simple_symlispcall_no_event(VV[131],base+0,3);
base[0]= VV[119];
base[1]= VV[122];
base[2]= VV[121];
(void)simple_symlispcall_no_event(VV[131],base+0,3);
vs_top=vs_base=base;
}
/* function definition for MAKE-ACCESS-FUNCTION */
static L2()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(9);
vs_top=sup;
TTL:;
base[11]= coerce_to_string(base[1]);
base[12]= coerce_to_string(base[4]);
base[10]= simple_symlispcall_no_event(VV[132],base+11,2);
vs_top=(vs_base=base+10)+1;
Lintern();
vs_top=sup;
base[9]= vs_base[0];
if((base[2])!=Cnil){
goto T16;}
base[10]= list(2,VV[5],base[0]);
base[11]= list(4,VV[3],VV[4],base[10],base[8]);
base[12]= list(4,VV[1],base[9],VV[2],base[11]);
base[13]= list(2,VV[5],base[9]);
base[14]= make_cons(base[0],base[8]);
base[15]= list(2,VV[5],base[14]);
base[16]= list(4,VV[6],base[13],base[15],VV[7]);
if((base[7])!=Cnil){
goto T20;}
base[18]= list(2,VV[5],base[0]);
base[19]= list(2,VV[5],base[18]);
base[20]= list(6,VV[11],VV[12],VV[4],base[19],base[8],VV[13]);
base[21]= list(5,VV[8],base[9],VV[9],VV[10],base[20]);
base[17]= make_cons(base[21],Cnil);
goto T18;
T20:;
base[18]= list(2,VV[5],base[9]);
base[19]= list(3,VV[14],base[18],VV[15]);
base[20]= list(2,VV[5],base[9]);
base[21]= list(3,VV[14],base[20],VV[16]);
base[22]= list(2,VV[5],base[9]);
base[23]= list(3,VV[14],base[22],VV[17]);
base[17]= list(3,base[19],base[21],base[23]);
T18:;
base[18]= listA(3,base[12],base[16],base[17]);
vs_top=(vs_base=base+18)+1;
return;
T16:;
if(base[2]==VV[18]){
goto T22;}
if(!(type_of(base[2])==t_cons)){
goto T23;}
if(!(car(base[2])==VV[18])){
goto T23;}
T22:;
base[10]= list(3,VV[20],VV[4],base[8]);
base[11]= list(4,VV[1],base[9],VV[19],base[10]);
base[12]= list(2,VV[5],base[9]);
base[13]= make_cons(VV[18],base[8]);
base[14]= list(2,VV[5],base[13]);
base[15]= list(4,VV[6],base[12],base[14],VV[21]);
if((base[7])!=Cnil){
goto T31;}
base[17]= list(5,VV[11],VV[24],VV[4],base[8],VV[13]);
base[18]= list(5,VV[8],base[9],VV[22],VV[23],base[17]);
base[16]= make_cons(base[18],Cnil);
goto T29;
T31:;
base[17]= list(2,VV[5],base[9]);
base[18]= list(3,VV[14],base[17],VV[25]);
base[19]= list(2,VV[5],base[9]);
base[20]= list(3,VV[14],base[19],VV[26]);
base[21]= list(2,VV[5],base[9]);
base[22]= list(3,VV[14],base[21],VV[27]);
base[16]= list(3,base[18],base[20],base[22]);
T29:;
base[17]= listA(3,base[11],base[15],base[16]);
vs_top=(vs_base=base+17)+1;
return;
T23:;
if(!(base[2]==VV[11])){
goto T34;}
base[10]= list(3,VV[29],base[8],VV[4]);
base[11]= list(4,VV[1],base[9],VV[28],base[10]);
base[12]= list(2,VV[5],base[9]);
base[13]= make_cons(VV[11],base[8]);
base[14]= list(2,VV[5],base[13]);
base[15]= list(4,VV[6],base[12],base[14],VV[30]);
if((base[7])!=Cnil){
goto T38;}
base[17]= list(5,VV[11],VV[33],VV[4],base[8],VV[13]);
base[18]= list(5,VV[8],base[9],VV[31],VV[32],base[17]);
base[16]= make_cons(base[18],Cnil);
goto T36;
T38:;
base[17]= list(2,VV[5],base[9]);
base[18]= list(3,VV[14],base[17],VV[34]);
base[19]= list(2,VV[5],base[9]);
base[20]= list(3,VV[14],base[19],VV[35]);
base[21]= list(2,VV[5],base[9]);
base[22]= list(3,VV[14],base[21],VV[36]);
base[16]= list(3,base[18],base[20],base[22]);
T36:;
base[17]= listA(3,base[11],base[15],base[16]);
vs_top=(vs_base=base+17)+1;
return;
T34:;
base[11]= VV[37];
base[12]= base[2];
vs_top=(vs_base=base+11)+2;
Lerror();
vs_top=sup;
base[10]= vs_base[0];
if((base[10])==Cnil){
goto T44;}
vs_top=(vs_base=base+10)+1;
return;
T44:;
base[11]= Cnil;
vs_top=(vs_base=base+11)+1;
return;
}
/* function definition for MAKE-CONSTRUCTOR */
static L3()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(5);
vs_top=sup;
TTL:;
{object V1;
object V2= base[4];
if(endp(V2)){
base[5]= Cnil;
goto T46;}
base[7]=V1=MMcons(Cnil,Cnil);
T47:;
if(((V2->c.c_car))!=Cnil){
goto T50;}
(V1->c.c_car)= Cnil;
goto T48;
T50:;
if((car((V2->c.c_car)))!=Cnil){
goto T53;}
(V1->c.c_car)= list(2,VV[5],cadr((V2->c.c_car)));
goto T48;
T53:;
(V1->c.c_car)= car((V2->c.c_car));
T48:;
if(endp(V2=MMcdr(V2))){
base[5]= base[7];
goto T46;}
V1=MMcdr(V1)=MMcons(Cnil,Cnil);
goto T47;}
T46:;
{object V3;
object V4= base[4];
if(endp(V4)){
base[6]= Cnil;
goto T55;}
base[7]=V3=MMcons(Cnil,Cnil);
T56:;
if(((V4->c.c_car))!=Cnil){
goto T59;}
(V3->c.c_cdr)= Cnil;
goto T57;
T59:;
if((car((V4->c.c_car)))!=Cnil){
goto T62;}
(V3->c.c_cdr)= Cnil;
goto T57;
T62:;
if((cadr((V4->c.c_car)))!=Cnil){
goto T65;}
(V3->c.c_cdr)= make_cons(car((V4->c.c_car)),Cnil);
goto T57;
T65:;
base[9]= list(2,car((V4->c.c_car)),cadr((V4->c.c_car)));
(V3->c.c_cdr)= make_cons(base[9],Cnil);
T57:;
while(!endp(MMcdr(V3)))V3=MMcdr(V3);
if(endp(V4=MMcdr(V4))){
base[7]=base[7]->c.c_cdr;
base[6]= base[7];
goto T55;}
goto T56;}
T55:;
if(!(type_of(base[1])==t_cons)){
goto T69;}
base[7]= cadr(base[1]);
base[8]= Cnil;
base[9]= Cnil;
T74:;
if(!(endp(base[7]))){
goto T75;}
base[10]= make_cons(VV[38],base[8]);
{object V5;
object V6= base[6];
if(endp(V6)){
base[11]= Cnil;
goto T80;}
base[12]=V5=MMcons(Cnil,Cnil);
T81:;
if(!(type_of((V6->c.c_car))!=t_cons)){
goto T88;}
base[14]= (V6->c.c_car);
goto T86;
T88:;
base[14]= car((V6->c.c_car));
T86:;
{object x= base[14],V7= base[9];
while(!endp(V7))
if(eql(x,V7->c.c_car)){
goto T85;
}else V7=V7->c.c_cdr;
goto T84;}
T85:;
(V5->c.c_cdr)= Cnil;
goto T82;
T84:;
(V5->c.c_cdr)= make_cons((V6->c.c_car),Cnil);
T82:;
while(!endp(MMcdr(V5)))V5=MMcdr(V5);
if(endp(V6=MMcdr(V6))){
base[12]=base[12]->c.c_cdr;
base[11]= base[12];
goto T80;}
goto T81;}
T80:;
vs_top=(vs_base=base+10)+2;
Lreconc();
vs_top=sup;
base[6]= vs_base[0];
goto T71;
T75:;
if(!(car(base[7])==VV[39])){
goto T93;}
base[8]= make_cons(VV[39],base[8]);
base[10]= cdr(base[7]);
base[11]= Cnil;
base[12]= Cnil;
T100:;
if(!(endp(base[10]))){
goto T101;}
base[13]= make_cons(VV[38],base[8]);
{object V8;
object V9= base[6];
if(endp(V9)){
base[14]= Cnil;
goto T107;}
base[15]=V8=MMcons(Cnil,Cnil);
T108:;
if(!(type_of((V9->c.c_car))!=t_cons)){
goto T115;}
base[17]= (V9->c.c_car);
goto T113;
T115:;
base[17]= car((V9->c.c_car));
T113:;
{object x= base[17],V10= base[9];
while(!endp(V10))
if(eql(x,V10->c.c_car)){
goto T112;
}else V10=V10->c.c_cdr;
goto T111;}
T112:;
(V8->c.c_cdr)= Cnil;
goto T109;
T111:;
(V8->c.c_cdr)= make_cons((V9->c.c_car),Cnil);
T109:;
while(!endp(MMcdr(V8)))V8=MMcdr(V8);
if(endp(V9=MMcdr(V9))){
base[15]=base[15]->c.c_cdr;
base[14]= base[15];
goto T107;}
goto T108;}
T107:;
vs_top=(vs_base=base+13)+2;
Lreconc();
vs_top=sup;
base[6]= vs_base[0];
goto T97;
T101:;
{object x= car(base[10]),V11= VV[40];
while(!endp(V11))
if(eql(x,V11->c.c_car)){
goto T120;
}else V11=V11->c.c_cdr;
goto T118;}
T120:;
if(!(car(base[10])==VV[41])){
goto T121;}
base[8]= make_cons(VV[41],base[8]);
base[10]= cdr(base[10]);
if(endp(base[10])){
goto T129;}
if(type_of(car(base[10]))==t_symbol){
goto T128;}
T129:;
vs_base=vs_top;
L4();
vs_top=sup;
T128:;
base[9]= make_cons(car(base[10]),base[9]);
base[8]= make_cons(car(base[10]),base[8]);
base[10]= cdr(base[10]);
if(!(endp(base[10]))){
goto T121;}
base[13]= make_cons(VV[38],base[8]);
{object V12;
object V13= base[6];
if(endp(V13)){
base[14]= Cnil;
goto T144;}
base[15]=V12=MMcons(Cnil,Cnil);
T145:;
if(!(type_of((V13->c.c_car))!=t_cons)){
goto T152;}
base[17]= (V13->c.c_car);
goto T150;
T152:;
base[17]= car((V13->c.c_car));
T150:;
{object x= base[17],V14= base[9];
while(!endp(V14))
if(eql(x,V14->c.c_car)){
goto T149;
}else V14=V14->c.c_cdr;
goto T148;}
T149:;
(V12->c.c_cdr)= Cnil;
goto T146;
T148:;
(V12->c.c_cdr)= make_cons((V13->c.c_car),Cnil);
T146:;
while(!endp(MMcdr(V12)))V12=MMcdr(V12);
if(endp(V13=MMcdr(V13))){
base[15]=base[15]->c.c_cdr;
base[14]= base[15];
goto T144;}
goto T145;}
T144:;
vs_top=(vs_base=base+13)+2;
Lreconc();
vs_top=sup;
base[6]= vs_base[0];
goto T97;
T121:;
if(car(base[10])==VV[38]){
goto T154;}
vs_base=vs_top;
L4();
vs_top=sup;
T154:;
base[8]= make_cons(VV[38],base[8]);
base[13]= cdr(base[10]);
T162:;
if(!(endp(base[13]))){
goto T163;}
goto T159;
T163:;
base[8]= make_cons(car(base[13]),base[8]);
if(!(type_of(car(base[13]))!=t_cons)){
goto T171;}
if(!(type_of(car(base[13]))==t_symbol)){
goto T171;}
base[9]= make_cons(car(base[13]),base[9]);
goto T169;
T171:;
if(!(type_of(caar(base[13]))==t_symbol)){
goto T177;}
if(endp(cdar(base[13]))){
goto T176;}
if(!(endp(cddar(base[13])))){
goto T177;}
T176:;
base[9]= make_cons(caar(base[13]),base[9]);
goto T169;
T177:;
vs_base=vs_top;
L4();
vs_top=sup;
T169:;
base[13]= cdr(base[13]);
goto T162;
T159:;
base[13]= base[8];
{object V15;
object V16= base[6];
if(endp(V16)){
base[14]= Cnil;
goto T190;}
base[15]=V15=MMcons(Cnil,Cnil);
T191:;
if(!(type_of((V16->c.c_car))!=t_cons)){
goto T198;}
base[17]= (V16->c.c_car);
goto T196;
T198:;
base[17]= car((V16->c.c_car));
T196:;
{object x= base[17],V17= base[9];
while(!endp(V17))
if(eql(x,V17->c.c_car)){
goto T195;
}else V17=V17->c.c_cdr;
goto T194;}
T195:;
(V15->c.c_cdr)= Cnil;
goto T192;
T194:;
(V15->c.c_cdr)= make_cons((V16->c.c_car),Cnil);
T192:;
while(!endp(MMcdr(V15)))V15=MMcdr(V15);
if(endp(V16=MMcdr(V16))){
base[15]=base[15]->c.c_cdr;
base[14]= base[15];
goto T190;}
goto T191;}
T190:;
vs_top=(vs_base=base+13)+2;
Lreconc();
vs_top=sup;
base[6]= vs_base[0];
goto T97;
T118:;
if(!(type_of(car(base[10]))!=t_cons)){
goto T206;}
base[11]= car(base[10]);
goto T204;
T206:;
if(!(endp(cdar(base[10])))){
goto T211;}
base[11]= caar(base[10]);
goto T204;
T211:;
goto T202;
T204:;
base[13]= base[11];
base[14]= base[6];
base[15]= VV[42];
base[16]=
make_cclosure(LC13,Cnil,Cnil,Cdata,Cstart,Csize);
vs_top=(vs_base=base+13)+4;
Lmember();
vs_top=sup;
base[12]= vs_base[0];
if((base[12])==Cnil){
goto T202;}
base[8]= make_cons(car(base[12]),base[8]);
goto T200;
T202:;
base[8]= make_cons(car(base[10]),base[8]);
T200:;
if(!(type_of(car(base[10]))!=t_cons)){
goto T225;}
if(type_of(car(base[10]))==t_symbol){
goto T227;}
vs_base=vs_top;
L4();
vs_top=sup;
T227:;
base[9]= make_cons(car(base[10]),base[9]);
goto T223;
T225:;
if(type_of(caar(base[10]))==t_symbol){
goto T232;}
vs_base=vs_top;
L4();
vs_top=sup;
goto T223;
T232:;
if(endp(cdar(base[10]))){
goto T234;}
if(!(endp(cddar(base[10])))){
goto T235;}
T234:;
base[9]= make_cons(caar(base[10]),base[9]);
goto T223;
T235:;
if(type_of(caddar(base[10]))==t_symbol){
goto T241;}
vs_base=vs_top;
L4();
vs_top=sup;
goto T223;
T241:;
if(endp(cdddar(base[10]))){
goto T244;}
vs_base=vs_top;
L4();
vs_top=sup;
goto T223;
T244:;
base[9]= make_cons(caar(base[10]),base[9]);
base[9]= make_cons(caddar(base[10]),base[9]);
T223:;
base[10]= cdr(base[10]);
goto T100;
T97:;
goto T71;
T93:;
if(type_of(car(base[7]))==t_symbol){
goto T252;}
vs_base=vs_top;
L4();
vs_top=sup;
T252:;
base[8]= make_cons(car(base[7]),base[8]);
base[9]= make_cons(car(base[7]),base[9]);
base[7]= cdr(base[7]);
goto T74;
T71:;
base[1]= car(base[1]);
goto T67;
T69:;
base[6]= make_cons(VV[43],base[6]);
T67:;
if((base[2])!=Cnil){
goto T264;}
base[7]= list(2,VV[5],base[0]);
base[8]= listA(3,VV[44],base[7],base[5]);
base[9]= list(4,VV[1],base[1],base[6],base[8]);
vs_top=(vs_base=base+9)+1;
return;
T264:;
if(base[2]==VV[18]){
goto T266;}
if(!(type_of(base[2])==t_cons)){
goto T267;}
if(!(car(base[2])==VV[18])){
goto T267;}
T266:;
base[7]= make_cons(VV[18],base[5]);
base[8]= list(4,VV[1],base[1],base[6],base[7]);
vs_top=(vs_base=base+8)+1;
return;
T267:;
if(!(base[2]==VV[11])){
goto T274;}
base[7]= make_cons(VV[11],base[5]);
base[8]= list(4,VV[1],base[1],base[6],base[7]);
vs_top=(vs_base=base+8)+1;
return;
T274:;
base[8]= VV[45];
base[9]= base[2];
vs_top=(vs_base=base+8)+2;
Lerror();
vs_top=sup;
base[7]= vs_base[0];
if((base[7])==Cnil){
goto T280;}
vs_top=(vs_base=base+7)+1;
return;
T280:;
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
return;
}
/* function definition for ILLEGAL-BOA */
static L4()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= VV[46];
vs_top=(vs_base=base+0)+1;
Lerror();
return;
}
/* function definition for MAKE-COPIER */
static L5()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(4);
vs_top=sup;
TTL:;
if((base[2])!=Cnil){
goto T284;}
base[4]= list(2,VV[5],base[0]);
base[5]= list(3,VV[48],VV[4],base[4]);
base[6]= list(4,VV[1],base[1],VV[47],base[5]);
vs_top=(vs_base=base+6)+1;
return;
T284:;
if(base[2]==VV[18]){
goto T286;}
if(!(type_of(base[2])==t_cons)){
goto T287;}
if(!(car(base[2])==VV[18])){
goto T287;}
T286:;
base[4]= listA(3,VV[1],base[1],VV[49]);
vs_top=(vs_base=base+4)+1;
return;
T287:;
if(!(base[2]==VV[11])){
goto T294;}
base[4]= listA(3,VV[1],base[1],VV[50]);
vs_top=(vs_base=base+4)+1;
return;
T294:;
base[5]= VV[51];
base[6]= base[2];
vs_top=(vs_base=base+5)+2;
Lerror();
vs_top=sup;
base[4]= vs_base[0];
if((base[4])==Cnil){
goto T300;}
vs_top=(vs_base=base+4)+1;
return;
T300:;
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for MAKE-PREDICATE */
static L6()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(5);
vs_top=sup;
TTL:;
if((base[2])!=Cnil){
goto T303;}
base[5]= list(2,VV[5],base[0]);
base[6]= list(3,VV[59],VV[60],base[5]);
base[7]= list(3,VV[58],base[6],VV[61]);
base[8]= list(5,VV[55],VV[56],VV[57],base[7],VV[62]);
base[9]= list(3,VV[53],VV[54],base[8]);
base[10]= list(4,VV[1],base[1],VV[52],base[9]);
vs_top=(vs_base=base+10)+1;
return;
T303:;
if(base[2]==VV[18]){
goto T305;}
if(!(type_of(base[2])==t_cons)){
goto T306;}
if(!(car(base[2])==VV[18])){
goto T306;}
T305:;
if((base[3])!=Cnil){
goto T312;}
base[5]= VV[63];
vs_top=(vs_base=base+5)+1;
Lerror();
vs_top=sup;
T312:;
base[5]= list(3,VV[66],VV[67],base[4]);
base[6]= list(3,VV[20],VV[4],base[4]);
base[7]= list(2,VV[5],base[0]);
base[8]= list(3,VV[59],base[6],base[7]);
base[9]= list(4,VV[53],VV[65],base[5],base[8]);
base[10]= list(4,VV[1],base[1],VV[64],base[9]);
vs_top=(vs_base=base+10)+1;
return;
T306:;
if(!(base[2]==VV[11])){
goto T317;}
if((base[3])!=Cnil){
goto T319;}
base[5]= VV[68];
vs_top=(vs_base=base+5)+1;
Lerror();
vs_top=sup;
T319:;
if(!(number_compare(base[4],VV[69])==0)){
goto T324;}
base[5]= list(2,VV[5],base[0]);
base[6]= list(3,VV[59],VV[72],base[5]);
base[7]= list(3,VV[53],VV[71],base[6]);
base[8]= list(4,VV[1],base[1],VV[70],base[7]);
vs_top=(vs_base=base+8)+1;
return;
T324:;
base[5]= list(3,VV[74],base[4],VV[75]);
base[6]= list(2,base[5],VV[76]);
base[7]= list(2,VV[5],base[0]);
base[8]= list(3,VV[59],VV[79],base[7]);
base[9]= list(3,VV[53],VV[78],base[8]);
base[10]= list(2,VV[77],base[9]);
base[11]= list(4,VV[55],base[6],base[10],VV[80]);
base[12]= list(4,VV[1],base[1],VV[73],base[11]);
vs_top=(vs_base=base+12)+1;
return;
T317:;
base[6]= VV[81];
vs_top=(vs_base=base+6)+1;
Lerror();
vs_top=sup;
base[5]= vs_base[0];
if((base[5])==Cnil){
goto T329;}
vs_top=(vs_base=base+5)+1;
return;
T329:;
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for PARSE-SLOT-DESCRIPTION */
static L7()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
if(!(type_of(base[0])!=t_cons)){
goto T333;}
base[2]= base[0];
goto T331;
T333:;
if(!(endp(cdr(base[0])))){
goto T337;}
base[2]= car(base[0]);
goto T331;
T337:;
base[2]= car(base[0]);
base[3]= cadr(base[0]);
base[6]= cddr(base[0]);
base[7]= Cnil;
base[8]= Cnil;
T346:;
if(!(endp(base[6]))){
goto T347;}
goto T331;
T347:;
base[7]= car(base[6]);
if(!(endp(cdr(base[6])))){
goto T353;}
base[9]= VV[82];
base[10]= base[6];
vs_top=(vs_base=base+9)+2;
Lerror();
vs_top=sup;
T353:;
base[8]= cadr(base[6]);
{object V18= base[7];
if((V18!= VV[133]))goto T361;
base[4]= base[8];
goto T360;
T361:;
if((V18!= VV[134]))goto T363;
base[5]= base[8];
goto T360;
T363:;
base[9]= VV[83];
base[10]= base[6];
vs_top=(vs_base=base+9)+2;
Lerror();
vs_top=sup;}
T360:;
base[6]= cddr(base[6]);
goto T346;
T331:;
base[6]= list(5,base[2],base[3],base[4],base[5],base[1]);
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for OVERWRITE-SLOT-DESCRIPTIONS */
static L8()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(2);
vs_top=sup;
TTL:;
if((base[1])!=Cnil){
goto T371;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T371:;
base[3]= caar(base[1]);
base[4]= base[0];
base[5]= VV[42];
base[6]= symbol_function(VV[135]);
vs_top=(vs_base=base+3)+4;
Lmember();
vs_top=sup;
base[2]= vs_base[0];
if((base[2])==Cnil){
goto T379;}
if((cadddr(car(base[2])))!=Cnil){
goto T381;}
if((cadddr(car(base[1])))==Cnil){
goto T381;}
base[3]= VV[84];
base[4]= base[2];
vs_top=(vs_base=base+3)+2;
Lerror();
vs_top=sup;
T381:;
base[3]= list(5,caar(base[2]),cadar(base[2]),caddar(base[2]),cadddr(car(base[2])),car(cddddr(car(base[1]))));
base[5]= base[0];
base[6]= cdr(base[1]);
vs_top=(vs_base=base+5)+2;
L8();
vs_top=sup;
base[4]= vs_base[0];
base[5]= make_cons(base[3],base[4]);
vs_top=(vs_base=base+5)+1;
return;
T379:;
{object V19= car(base[1]);
base[4]= base[0];
base[5]= cdr(base[1]);
vs_top=(vs_base=base+4)+2;
L8();
vs_top=sup;
base[3]= vs_base[0];
base[4]= make_cons(V19,base[3]);
vs_top=(vs_base=base+4)+1;
return;}
}
/* macro definition for DEFSTRUCT */
static L9()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(2);
vs_top=sup;
{object V20=base[0]->c.c_cdr;
if(endp(V20))invalid_macro_call();
base[2]= (V20->c.c_car);
V20=V20->c.c_cdr;
base[3]= V20;}
base[4]= base[3];
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
base[8]= Cnil;
base[9]= Cnil;
base[10]= Cnil;
base[11]= Cnil;
base[12]= Cnil;
base[13]= Cnil;
base[14]= Cnil;
base[15]= Cnil;
base[16]= Cnil;
base[17]= Cnil;
base[18]= Cnil;
base[19]= Cnil;
base[20]= Cnil;
if(!(type_of(base[2])==t_cons)){
goto T394;}
base[5]= cdr(base[2]);
base[2]= car(base[2]);
T394:;
base[21]= coerce_to_string(base[2]);
base[22]= VV[85];
base[6]= simple_symlispcall_no_event(VV[132],base+21,2);
base[22]= VV[86];
base[23]= coerce_to_string(base[2]);
base[21]= simple_symlispcall_no_event(VV[132],base+22,2);
vs_top=(vs_base=base+21)+1;
Lintern();
vs_top=sup;
base[8]= vs_base[0];
base[22]= VV[87];
base[23]= coerce_to_string(base[2]);
base[21]= simple_symlispcall_no_event(VV[132],base+22,2);
vs_top=(vs_base=base+21)+1;
Lintern();
vs_top=sup;
base[10]= vs_base[0];
base[22]= coerce_to_string(base[2]);
base[23]= VV[88];
base[21]= simple_symlispcall_no_event(VV[132],base+22,2);
vs_top=(vs_base=base+21)+1;
Lintern();
vs_top=sup;
base[11]= vs_base[0];
base[21]= base[5];
base[22]= Cnil;
base[23]= Cnil;
T421:;
if(!(endp(base[21]))){
goto T422;}
goto T419;
T422:;
if(!(type_of(car(base[21]))==t_cons)){
goto T428;}
if(endp(cdar(base[21]))){
goto T428;}
base[22]= caar(base[21]);
base[23]= cadar(base[21]);
{object V21= base[22];
if((V21!= VV[136]))goto T436;
if((base[23])!=Cnil){
goto T438;}
base[6]= VV[89];
goto T426;
T438:;
base[6]= base[23];
goto T426;
T436:;
if((V21!= VV[137]))goto T442;
if((base[23])!=Cnil){
goto T444;}
base[9]= Ct;
goto T426;
T444:;
if(!(endp(cddar(base[21])))){
goto T448;}
base[7]= make_cons(base[23],base[7]);
goto T426;
T448:;
base[7]= make_cons(cdar(base[21]),base[7]);
goto T426;
T442:;
if((V21!= VV[138]))goto T452;
base[10]= base[23];
goto T426;
T452:;
if((V21!= VV[139]))goto T454;
base[11]= base[23];
base[12]= Ct;
goto T426;
T454:;
if((V21!= VV[140]))goto T458;
base[13]= cdar(base[21]);
if((get(base[23],VV[90],Cnil))!=Cnil){
goto T426;}
base[24]= VV[91];
base[25]= base[23];
vs_top=(vs_base=base+24)+2;
Lerror();
vs_top=sup;
goto T426;
T458:;
if((V21!= VV[141]))goto T465;
base[14]= base[23];
goto T426;
T465:;
if((V21!= VV[133]))goto T467;
base[15]= base[23];
goto T426;
T467:;
if((V21!= VV[142]))goto T469;
base[17]= base[23];
goto T426;
T469:;
base[24]= VV[92];
base[25]= base[22];
vs_top=(vs_base=base+24)+2;
Lerror();
vs_top=sup;
goto T426;}
T428:;
if(!(type_of(car(base[21]))==t_cons)){
goto T475;}
base[22]= caar(base[21]);
goto T473;
T475:;
base[22]= car(base[21]);
T473:;
{object V22= base[22];
if((V22!= VV[137]))goto T479;
base[7]= make_cons(base[8],base[7]);
goto T426;
T479:;
if((V22!= VV[136])
&& (V22!= VV[138])
&& (V22!= VV[139])
&& (V22!= VV[141]))goto T481;
goto T426;
T481:;
if((V22!= VV[143]))goto T482;
base[16]= Ct;
goto T426;
T482:;
base[24]= VV[93];
base[25]= base[22];
vs_top=(vs_base=base+24)+2;
Lerror();
vs_top=sup;}
T426:;
base[21]= cdr(base[21]);
goto T421;
T419:;
if(endp(base[4])){
goto T489;}
if(!(type_of(car(base[4]))==t_string)){
goto T489;}
base[20]= car(base[4]);
base[4]= cdr(base[4]);
T489:;
if((base[13])==Cnil){
goto T497;}
base[21]= get(car(base[13]),VV[94],Cnil);
if(equal(base[15],base[21])){
goto T497;}
base[21]= VV[95];
base[22]= car(base[13]);
vs_top=(vs_base=base+21)+2;
Lerror();
vs_top=sup;
T497:;
if((base[13])!=Cnil){
goto T507;}
base[18]= VV[69];
goto T505;
T507:;
base[18]= get(car(base[13]),VV[96],Cnil);
T505:;
if((base[15])==Cnil){
goto T511;}
if((base[17])==Cnil){
goto T511;}
base[18]= number_plus(base[18],base[17]);
T511:;
if((base[15])==Cnil){
goto T517;}
if((base[16])==Cnil){
goto T517;}
base[19]= base[18];
base[18]= one_plus(base[18]);
T517:;
base[21]= base[4];
base[22]= Cnil;
T527:;
if(!(endp(base[21]))){
goto T528;}
base[4]= nreverse(base[22]);
goto T525;
T528:;
base[24]= car(base[21]);
base[25]= base[18];
vs_top=(vs_base=base+24)+2;
L7();
vs_top=sup;
base[23]= vs_base[0];
base[22]= make_cons(base[23],base[22]);
base[18]= one_plus(base[18]);
base[21]= cdr(base[21]);
goto T527;
T525:;
if((base[15])==Cnil){
goto T543;}
if((base[16])==Cnil){
goto T543;}
base[21]= list(2,Cnil,base[2]);
base[4]= make_cons(base[21],base[4]);
T543:;
if((base[15])==Cnil){
goto T549;}
if((base[17])==Cnil){
goto T549;}
base[22]= base[17];
vs_top=(vs_base=base+22)+1;
Lmake_list();
vs_top=sup;
base[21]= vs_base[0];
base[4]= append(base[21],base[4]);
T549:;
base[21]= (base[13]==Cnil?Ct:Cnil);
if((base[21])==Cnil){
goto T560;}
goto T557;
T560:;
if(!(endp(cdr(base[13])))){
goto T563;}
base[22]= get(car(base[13]),VV[97],Cnil);
base[4]= append(base[22],base[4]);
goto T557;
T563:;
{object V23;
object V24= cdr(base[13]);
if(endp(V24)){
base[23]= Cnil;
goto T569;}
base[24]=V23=MMcons(Cnil,Cnil);
T570:;
base[26]= (V24->c.c_car);
base[27]= VV[69];
vs_top=(vs_base=base+26)+2;
L7();
vs_top=sup;
(V23->c.c_car)= vs_base[0];
if(endp(V24=MMcdr(V24))){
base[23]= base[24];
goto T569;}
V23=MMcdr(V23)=MMcons(Cnil,Cnil);
goto T570;}
T569:;
base[24]= get(car(base[13]),VV[97],Cnil);
vs_top=(vs_base=base+23)+2;
L8();
vs_top=sup;
base[22]= vs_base[0];
base[4]= append(base[22],base[4]);
T557:;
if((base[9])==Cnil){
goto T577;}
if((base[7])==Cnil){
goto T575;}
base[21]= VV[98];
vs_top=(vs_base=base+21)+1;
Lerror();
vs_top=sup;
goto T575;
T577:;
if((base[7])!=Cnil){
goto T575;}
base[7]= make_cons(base[8],Cnil);
T575:;
if((base[15])==Cnil){
goto T585;}
if((base[16])!=Cnil){
goto T585;}
if((base[12])==Cnil){
goto T590;}
base[21]= VV[99];
base[22]= base[11];
vs_top=(vs_base=base+21)+2;
Lerror();
vs_top=sup;
T590:;
base[11]= Cnil;
T585:;
if((base[13])==Cnil){
goto T596;}
base[13]= car(base[13]);
T596:;
if((base[14])==Cnil){
goto T600;}
if((base[15])==Cnil){
goto T600;}
base[21]= VV[100];
vs_top=(vs_base=base+21)+1;
Lerror();
vs_top=sup;
T600:;
base[21]= list(2,VV[5],base[2]);
base[22]= listA(3,VV[102],base[2],base[3]);
base[23]= list(2,VV[5],base[22]);
base[24]= list(4,VV[6],base[21],base[23],VV[103]);
base[25]= list(2,VV[5],base[2]);
base[26]= listA(3,VV[6],base[25],VV[104]);
base[27]= list(2,VV[5],base[2]);
base[28]= list(2,VV[5],base[4]);
base[29]= list(4,VV[6],base[27],base[28],VV[105]);
base[30]= list(2,VV[5],base[2]);
base[31]= list(2,VV[5],base[13]);
base[32]= list(4,VV[6],base[30],base[31],VV[106]);
base[33]= list(2,VV[5],base[2]);
base[34]= list(2,VV[5],base[14]);
base[35]= list(4,VV[6],base[33],base[34],VV[107]);
base[36]= list(2,VV[5],base[2]);
base[37]= list(2,VV[5],base[15]);
base[38]= list(4,VV[6],base[36],base[37],VV[108]);
base[39]= list(2,VV[5],base[2]);
base[40]= list(2,VV[5],base[16]);
base[41]= list(4,VV[6],base[39],base[40],VV[109]);
{object V25;
object V26= base[4];
if(endp(V26)){
base[42]= Cnil;
goto T606;}
base[43]=V25=MMcons(Cnil,Cnil);
T607:;
if(((V26->c.c_car))==Cnil){
goto T610;}
if((car((V26->c.c_car)))==Cnil){
goto T610;}
base[45]= base[2];
base[46]= base[6];
base[47]= base[15];
base[48]= base[16];
{object V27;
V27= (V26->c.c_car);
vs_top=base+49;
while(!endp(V27))
{vs_push(car(V27));V27=cdr(V27);}
vs_base=base+45;}
L2();
vs_top=sup;
(V25->c.c_cdr)= vs_base[0];
goto T608;
T610:;
(V25->c.c_cdr)= Cnil;
T608:;
while(!endp(MMcdr(V25)))V25=MMcdr(V25);
if(endp(V26=MMcdr(V26))){
base[43]=base[43]->c.c_cdr;
base[42]= base[43];
goto T606;}
goto T607;}
T606:;
base[43]= list(2,VV[5],base[2]);
base[44]= list(4,VV[6],base[43],base[18],VV[110]);
{object V28;
object V29= base[7];
if(endp(V29)){
base[45]= Cnil;
goto T619;}
base[46]=V28=MMcons(Cnil,Cnil);
T620:;
base[48]= base[2];
base[49]= (V29->c.c_car);
base[50]= base[15];
base[51]= base[16];
base[52]= base[4];
vs_top=(vs_base=base+48)+5;
L3();
vs_top=sup;
(V28->c.c_car)= vs_base[0];
if(endp(V29=MMcdr(V29))){
base[45]= base[46];
goto T619;}
V28=MMcdr(V28)=MMcons(Cnil,Cnil);
goto T620;}
T619:;
base[46]= list(2,VV[5],base[2]);
base[47]= list(2,VV[5],base[7]);
base[48]= list(4,VV[6],base[46],base[47],VV[111]);
if((base[10])==Cnil){
goto T630;}
base[52]= base[2];
base[53]= base[10];
base[54]= base[15];
base[55]= base[16];
vs_top=(vs_base=base+52)+4;
L5();
vs_top=sup;
base[51]= vs_base[0];
base[50]= make_cons(base[51],Cnil);
goto T628;
T630:;
base[50]= Cnil;
T628:;
if((base[11])==Cnil){
goto T639;}
base[53]= base[2];
base[54]= base[11];
base[55]= base[15];
base[56]= base[16];
base[57]= base[19];
vs_top=(vs_base=base+53)+5;
L6();
vs_top=sup;
base[52]= vs_base[0];
base[51]= make_cons(base[52],Cnil);
goto T637;
T639:;
base[51]= Cnil;
T637:;
base[53]= list(2,VV[5],base[2]);
base[54]= list(4,VV[6],base[53],base[20],VV[112]);
base[55]= list(2,VV[5],base[2]);
base[52]= list(2,base[54],base[55]);
vs_top=(vs_base=base+50)+3;
Lappend();
vs_top=sup;
base[49]= vs_base[0];
base[50]= make_cons(base[48],base[49]);
base[51]= append(base[45],base[50]);
base[52]= make_cons(base[44],base[51]);
base[53]= append(base[42],base[52]);
base[54]= listA(9,VV[101],base[24],base[26],base[29],base[32],base[35],base[38],base[41],base[53]);
vs_top=(vs_base=base+54)+1;
return;
}
/* function definition for SHARP-S-READER */
static L10()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(3);
vs_top=sup;
TTL:;
if((base[2])==Cnil){
goto T648;}
if((symbol_value(VV[113]))!=Cnil){
goto T648;}
base[3]= VV[114];
vs_top=(vs_base=base+3)+1;
Lerror();
vs_top=sup;
T648:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lread();
vs_top=sup;
base[3]= vs_base[0];
if((get(car(base[3]),VV[90],Cnil))!=Cnil){
goto T656;}
base[4]= VV[115];
base[5]= car(base[3]);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
T656:;
base[4]= cdr(base[3]);
T663:;
if(!(endp(base[4]))){
goto T664;}
base[5]= get(car(base[3]),VV[116],Cnil);
T669:;
if(!(endp(base[5]))){
goto T670;}
base[6]= VV[117];
base[7]= car(base[3]);
vs_top=(vs_base=base+6)+2;
Lerror();
return;
T670:;
if(!(type_of(car(base[5]))==t_symbol)){
goto T676;}
base[6]= car(base[5]);
{object V30;
V30= cdr(base[3]);
vs_top=base+7;
while(!endp(V30))
{vs_push(car(V30));V30=cdr(V30);}
vs_base=base+7;}
super_funcall_no_event(base[6]);
return;
T676:;
base[5]= cdr(base[5]);
goto T669;
T664:;
base[6]= coerce_to_string(car(base[4]));
base[7]= VV[118];
vs_top=(vs_base=base+6)+2;
Lintern();
vs_top=sup;
base[5]= vs_base[0];
if(type_of(base[4])!=t_cons)FEwrong_type_argument(Scons,base[4]);
(base[4])->c.c_car = base[5];
base[4]= cddr(base[4]);
goto T663;
}
/* local function CLOSURE */
static LC13(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(1);
vs_top=sup;
if(!(type_of(base[0])==t_cons)){
goto T693;}
base[1]= car(base[0]);
vs_top=(vs_base=base+1)+1;
return;
T693:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}